< MXX  .SCR  --  RANDOM NUMBER=     1                                                        
 PLAY;                                                                                         
 REVINIT←1;DSIG←0;SRATE←12800; 
 TOOT      0.00     1.00 C       1000.0  
;PRINT(P1);< TOOT    1    
  SEG(F1);0 0 1 50 0 100; 
;PRINT(P1);< DUMY    1    
 CLAR      0.00     2.71   0.00   0.00   0.00   0.00 999.00  
;PRINT(P1);< CLAR    1    
  SYNTH(F3);1 1 7 .3 999  
;PRINT(P1);< DDD     1    
 TOOT      1.00     1.00 C
;PRINT(P1);< TOOT    2    
  SEG(F1);0 0 1 50 0 100; 
;PRINT(P1);< DUMY    2    
 TOOT      2.00     1.00 C
;PRINT(P1);< TOOT    3    
  SEG(F1);0 0 1 50 0 100; 
;PRINT(P1);< DUMY    3    
 CLAR      2.71     1.73  
;PRINT(P1);< CLAR    2    
  SYNTH(F3);1 1 2 .3 999  
;PRINT(P1);< DDD     2    
 TOOT      3.00     1.00 C
;PRINT(P1);< TOOT    4    
  SEG(F1);0 0 1 50 0 100; 
;PRINT(P1);< DUMY    4    
 TOOT      4.00     1.00 C
;PRINT(P1);< TOOT    5    
  SEG(F1);0 0 1 50 0 100; 
;PRINT(P1);< DUMY    5    
 CLAR      4.44     0.44  
;PRINT(P1);< CLAR    3    
  SYNTH(F3);1 1 7 .3 999  
;PRINT(P1);< DDD     3    
 CLAR      4.88     2.69  
;PRINT(P1);< CLAR    4    
  SYNTH(F3);1 1 7 .3 999  
;PRINT(P1);< DDD     4    
 TOOT      5.00     1.00 C
;PRINT(P1);< TOOT    6    
  SEG(F1);0 0 1 50 0 100; 
;PRINT(P1);< DUMY    6    
 TOOT      6.00     1.00 C
;PRINT(P1);< TOOT    7    
  SEG(F1);0 0 1 50 0 100; 
;PRINT(P1);< DUMY    7    
 TOOT      7.00     1.00 C
;PRINT(P1);< TOOT    8    
  SEG(F1);0 0 1 50 0 100; 
;PRINT(P1);< DUMY    8    
 CLAR      7.57     1.99  
;PRINT(P1);< CLAR    5    
  SYNTH(F3);1 1 3 .3 999  
;PRINT(P1);< DDD     5    
 TOOT      8.00     1.00 C
;PRINT(P1);< TOOT    9    
  SEG(F1);0 0 1 50 0 100; 
;PRINT(P1);< DUMY    9    
 TOOT      9.00     1.00 C
;PRINT(P1);< TOOT   10    
  SEG(F1);0 0 1 50 0 100; 
;PRINT(P1);< DUMY   10    
 CLAR      9.56     1.47  
;PRINT(P1);< CLAR    6    
  SYNTH(F3);1 1 3 .3 999  
;PRINT(P1);< DDD     6    
 FINISH;